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; 1 09 1 Q MODULE mdigen ( IDENT = ‘v04-000' ) = 

; ‘ 88 BEGIN 

; & 8 04 1 

3 5 005 1! 

3 $ B28 ! “aimee alia ian 
; 1 * 
; 8 008 1 !* COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
; 009 1 i* DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. * 
; 19 Bart : :: ALL RIGHTS RESERVED. * 
3 ° * 
; 1 bors 1 !* THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
Se 0153 1 !* ONLY IN ACCORDANCE WITH THE T SUCH LICENSE AND WITH THE * 
; 0014 1 !* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE SR ANY OTHER” * 
oT 0015 1 !* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY ®* 
; 0016 1 !* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
; i Bete : 1* TRANSFERRED. * 
3 ‘ft ® 
; 0019 1 !* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
; 20 0020 1 !* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
$ $} ath ' ‘* CORPORATION. * 
4 ‘t tr 
; 25 $053 1 !* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
: $¢ base : tn SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
Ps ; © 
; 6 0026 1 !* * 
$ 7 4 $4 LL eee eR RARER ARERR AAA RET EEE A AEA T ERATE ARREARS 
; oe 0028 1! 

; $3 ik 34 1 

; 0 0030 1 !++ 

ae) 0031 1 ! FACILITY: Message compiler 

5 3 he 1! 

: 0033 1 ! ABSTRACT: 

; $e 0034 1! 

3 5 0035 1! This compiler translates message definition Language 

; 0036 1! into object modules. This module is called by the parser 
; em 0037 1! to generate an MDL file. 

; =» 0038 1! 

; 0039 1 ! ENVIRONMENT: 

: 40 0040 1! 

; $ ope, : VAX/VMS operating system, unprivileged user mode. 

5 re 0028 1 ! AUTHOR: Peter George, December 1980 

: (44 044 1! 

: «645 045 1 ! Modified by: 

: 646 0046 1! 

3; «667 0047 1! v03-001 JwT0048 Jim Teague \eoaug 1986 

: «648 0048 1! Don't keep concatenating comments on conflicting Literal 

; «#6469 0049 1! definitions. 

; @ 0050 1! 

. 0051 1! v02-003 PCG0003 Peter George 04-Mar-1981 

3 26 ot 4 1! Alter CONCAT and DESC macro calls so that multiple 

; 36 0084 : UPLIT’s are no longer generated. 

3 5 055 1! v02-002 PCG0002 Peter George she 02-Feb-1981 

; 2$ Bes 1; Generate FACILITY constant definition to 

cece 057 1! specify facility numbers. Also, change 


3 i 
GEN b-$e -1984 02:10:1 AX-11 Bliss-32 v4.0-74 Pa 
Ha tt ~360-1382 95:10:18 MSGFIL. ReSmoc GEN 63204 = a8 | 
: 38 rh ] } format of hexadecimal output. 
: 60 01: v02=001 PCG0001 Peter George 15-Jan-1981 
s 68) =a Add processing for the /MACRO facility 
3 o¢ ; 1! qualifier. 
5; 6 065 1! 
: «6646 064 1 !=- 
3 o? 5 ! 
: 67 06? 1! 
; os 4: : Include files 
:; 70 $090 ay 
: 4! te ; LIBRARY ‘SYSSLIBRARY:STARLET'; ' VMS common definitions 
7? 0073 1 REQUIRE ‘SRC$:MSG.REQ'; ! Message common definitions 
; «674 0311 #1 
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) zs 
XCHARCOUNT (string), UPLIT BYTE (string)%, 
! Concatenate two or more strings 


; f 0 
; «78 0 i Table of contents 
TOR. , : 
; 80 
; $} FORWARD ROUTINE 
3 § mdl_start_struc, ! Output SSTRUC command 
; § 0 mdl_define_constant, ! Define message or literal constant 
84 0 mdl_end_scruc, ! Output E command 
85 0 mdl_comment, ! Output a comment 
a8 0 mdl_put_record; ! Output a Line to mdl file 
88 9 ! Macros 
89 ; : 
90 
91 3 MACRO 
3 3 ; 
a : ! Create a descriptor for a static string 
95 m 03 DESC (strin 
96 3 
97 3 
98 3 
99 3 
3 
3 
3 
3 
3 
3 
3 
3 


eS SS 


100 m CONCAT (result, source) ([] = 

101 M CHSMOVE (.source, .(source+4), .result(0O] + .result(1]); 

I0¢ M result(0O) = .result(0) + .source; 

10 concat (result, ZREMAINING)2; 

104 4 

105 4 : 

106 4 ' Literals 

107 4 ! 

108 34 

109 34 LITERAL 

110 34 system_bit = 1, ! /SYSTEM facility qualifier indicator 

111 034 prefix bit =_2, ! /PREFIX facility qualifier indicator 

112 034 macro bit = 3, ' /MACRO facility qualifier indicator 

113 034 dectohex_switch = %X'FFFF*, ' Value to switch from decimal to hex at 

114 03 record offset = ! Column where record starts 

115 035 comment _offset = 5, ! Number of spaces to insert when appending a comment 
116 03 pyabet size =_obj$c_symsiz, ' Maximum symbol name size 

+t 4 o3 Line_size = 132; ! Length of output record buffer 

119 Hy ! . 

120 0 ! Storage definitions 

121 0357 ! 

<6 0358 

12 bg 9 OWN 

124 60 value_offset, ' Column where values starts 
162 0361 struc_init: INITIAL (false), ! Structure initialized flag 
126 bac8 prefix: VECTOR Cline _size,BYTE), ' Prefix buffer ; 
127 36 prefix_desc: VECTOR (2) INITIAL (0 profiad. ! Symbol name prefix descriptor 
128 0364 output _buf fer: VECTOR Cline size, BYTE), i Qutput buffer 

‘$3 Bee2 output_desc: VECTOR (2) INITIAL (O,output_buffer); ! Descriptor of output buffer 
131 O86? OWN ; 

132 0368 bracket: VECTOR (2) ! ">" descriptor 
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14-Sep-1 46:14 MSGFIL.SRCIJMDLGEN.B32 (3) 
GLOBAL ROUTINE mdl_start struc (facility_desc, facility_number, macro_desc, facility_flags) = 


oe 
% 


lee | 
i 
This routine outputs the following two Lines: 


SSTRUCT facility_name,macro_suf fix 
C <constant_prefix,tag_string, 
FACILITY, facility_number 


Where, 1) facility_name is defined by either /MACRO, /PREFIX, 
r the default facTlity name, depend ng on which is present; 
) macro_suffix is defined only when /MACRO is present and is 
tnen the last three characters of the macro name; 3) constant_prefix 
is defined by the /PREFIX qualifier or the default facilit 
name if the qualifier is not present; 4) $o9_str in is either 
a or spene ine on whether the /SYSTEM qualifier is 
present ? not; and 5) facility_number is the facility number 
specified. 


i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
' 
; 
Inputs: 
: facility.desc = Address of descriptor of facility name. 
/PREFIX qualifier is used if present. 
i 
' 
i 
i 
i 
i 
i 
i 
i 
i 
i 
i 
le 


Sek kk eke ne ee ee ee ee a ak ek lt ee ee ee ak ee ee ee ek ee 


WIAA AI AAI POPPIN NINDYD 2 2 SS OS S| SS OOOOOOO 


facility_number = Facility number passed by value. 
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| 
facility_flags = Bitvector idicating which facility | 


o 

> 

Ww 

o 
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macro_desc = Address of descriptor of string specified by the 
3 /MACRO qualifier. 
98 
+4 qualifiers are present. 
01 0436 Outputs: 
Oe 0437 
0 0438 None 
204 
205 0440 - 
206 0441 
207 044 BEGIN 
208 044 
209 0444 MAP 
210 0445 facility_desc: REF VECTOR, 
$1 Ree macro_desc: REF VECTOR 
lg 44 facility_flags: REF BITVECTOR; 
21 0448 
214 0449 2 LOCAL 
215 0450 buffer: VECTOR Cline_size, BYTE], ' Line to be output | 
$18 0451 buf fer_desc: VECTOR $4° ! Buffer descriptor 
17 bees constant_desc: VECTOR ° ! Facility name descriptor for constant Line 
18 045 faoout_buf: VECTOR Cline_size, BYTE), i FAO output buffer 
19 0454 faoout_desc: VECTOR , ! Descriptor to accept output from FAO 
0 Beee struc_desc: VECTOR . ! Structure name descriptor 
1 $28 suf fix_desc VECTOR ' Macro name suffix descriptor 
§ 045 tag_desc: VECTOR ams ' Tag field descr}ptor ee | 
Si bees VECTOR Cline_size, BYTE]; ! Tag built when /PREFIX is specified | 


| H 3 | 

MDLGEN 16-Sep-1984 02:10:16 AX=-11 Bliss-32 V4.0-742 Pa 6 n 
1052500 12286871383 Miler UMSGFIL SRE MDLGEN.B32;1 = (3). voce 
H 5 460 struc_init = true; ' Set stucture active fla | | 
; § $e 1 constint desc{Od = fact t ity desch 0): ! Initialize structure none : 2 
: j Bre constant_descl1J = .facility_desc(1J; ! descriptor from parameter : 2 
: 229 464 2 IF .facility_flags Cprefix_bit] ! /PREFIX specified | 3 9 
: 280 0465 3 THEW BEGIN taeda tom gece | : 9 
: 046 refix_desc(0) = .constant_desc(0); ! Pick refix as literaly specified a § 
; § re 3 Oretinndencty4 = eeetentdeeet iii aie oleae eds | ‘ : 
: 235 0470 tag_desc hd) = 2; ! Remove last character or two of | ae | 
: 3 13) tag_desc(1] = tag; ! prefix as tag | : é 
; 4 8h constant_desc(0] = .constant_desc(0] - 2; ! Remove tag from structure name ; 2 
; $i9 eh ; CHSMOVE (2, .constant_desc(0] + .constant_desc(1], .tag_desc(1]); ; 3 
; 26 0477 4 IF ( NOT .facility_flags Csystem_bit] ) ! /SYSTEM not specified ; 3 
; 24 0478 4 THEN BEGIN 5. 3 
; 244 0479 4 tag_desc 0) = .tag_desc(0) - 1; ! Remove '$' from tag | . 3 
; 245 0480 4 tag_desc(1] = .tag_desc(1] + 1; ; 3 
; 246 0481 4 constant_desc(0] = .constant_desc(0) + 1; 7 
; 247 0482 3 END; >a 
; 248 048 ; ea 
; 249 0484 END $ 3 
; 250 0485 3 - 9 
: $2) Bee ; ELSE BEGIN ! /PREFIX not specified : 2 
: $88 0488 3 tag_desc(0) = 2; ' Initialize tag field ; 3 
: See 9834 : tag_desc(1J = UPLIT ("$_"); ! Assuming /SYSTEM specified ; 2 
: 256 0491 4 IF ( NOT .facility_flags Csystem_bit] ) ! /SYSTEM not specified a 
: 257 0492 4 THEN BEGIN 5 3 
; 258 0493 4 tag_desc(0) = .tag_desc(0] - 1; ! Remove '$' from tag | eS | 
; 259 0494 4 bag_desc 1) = .tag_desc(1J] + 1; Te | 
; 260 0495 3 END; SS 
: 261 0496 > 
; oes 0497 prefix_desc(0) = 0; ' Clear prefix length 3; 72 
; $3 O38 prefix_desc(1) = prefix; ' Set up prefix buffer : 2 
; Ses P 0500 CONCAT (prefix_desc, ! Put together symbol name prefix 7 5 
; $96 P 0501 constant_desc, i | 
; 267 0208 tag_desc); 7 
: 268 828 7 
Bite 48 Bae feat 
; 4 0306 value_offset = record_offset + symbol_size - .prefix_desc(0]; ! Initialize symbol value offset | : é 
: st 0308 mdl_put_record ( UPLIT (DESC (' ') )); ! Output a blank Line : ; 
: 275 0810 buffer_desc(0] = record_offset; ! Initialize buffer descriptor | 
; 6 511 buffer desc(1] = buffer; ; oe | 
; AA 216 CHSFILC (* ', record_offset, buffer); ' Clear beginning of Line : i 
: 279 0514 IF .facility_flags Cmacro_bit] ! /MACRO qualifier present : 5 
; $80 Bel? THEN BEGIN :.3 
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struc -sesc ff = ,macro -desc tO) - 
struc_descliJ] = .macro_descl1 


suf fix_desc 


ue 
coffixidesc(1) = struc _desc(1) + .struc_desc(0]; 


CONCAT (buffer_desc, 


struct; 
struc_desc, 
comma, 
suffix_desc); 
END 
ELSE BEGIN 


struc_desc(0) -constant_desc(0]; 
struc_desc(1] = .constant_desc(1); 


CONCAT (buffer_desc, 
struct, 
struc_desc); 


mdl_put_record (buf fer_desc) 
mdl“put_record ( UPLIT™ (DESC ge "DR Bee 


buffer_desc(0) = record_offset; 
CONCAT (buffer_desc, 

cbracke 

constant “desc, 

comma, 

tag_desc, 

comma) ; 
mdl_put_record (buffer_desc); 


pul tor desc(0) = record_offset; 
ILC (* *, .value _offset, buffer); 


CONCAT IG desc, 


buffer_desc(0) = .value_offset; 
CONCAT rs pag desc, 

faoout tab = Line_size; 
faoout_desc(1] = faoout_buf; 


S$FAO (buffer_desc, faoout_desc(0], 
faoout_desc, .facility_ number); 


mdl_put_record (faoout_desc); 


716 AX=-11 Bliss-32 V4.0 
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Remove $ and suffix 
Initialize suffix 


Put together S$STRUCT Line 


Use default structure name 


Put together $STRUCT Line 


Output SSTRUCT Line 
Output blank Line 


Reset buffer size 
Put together constant header 


Output constant header 


Initialize buffer descriptor 
Clear beginning of Line 


Put together FACILITY constant definition 


Move buffer ptr to column for values 

Use decimal notation 

Set maximum buffer size 

Set FAO output buffer 

Convert numeric value to string descriptor 


Output constant statement 
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- TITLE reget 
-IDENT \V04=000\ 
-PSECT S$PLITS,NOWRT,NOEXE ,2 


35 99000 P.AAA: . ASCII \>\ ; 
3c 20 43 00001 P.AAB: ASCII \C <\ : 
26 00004 P.AAC: <ASCII \,\ : 
45 00005 P.AAD: .ASCII \E\ : 
2¢ 59 54 49 4C 49 43 41 46 00006 P.AAE: <ASCII \FACILITY,\ : 
B OOOF P.AAF: .ASCII \:\ : 
20 54 43 55 52 53 24 00010 P.AAG: ASCII \$STRUCT \ : 
4c 655) (31 00018 P.AAH: .ASCII \!UL\ : 
3E 4C 58 21 SE 3 0018 P.AAL: .ASCII \<*X!XL>\ : 

000 ‘BLKB 2 
00 OO SF $3 00024 P.AAJ: .ASCII \$_\<0><0> : 
0 00028 P:AAL: <ASCII \ : 

00 9 ‘BLKB 3 
00000001 0002C P.AAK: <LONG 1 ; 
00000000' 00030 “ADDRESS P.AAL : 
20 00034 P.AAN sAatit \% : 

00035 ‘BLKB 3 
00000001 00038 P.AAM: : 

00000000' 0003c 


.PSECT $OWNS,NOEXE,2 
00000 VALUE _OF FSET : 
00000000 00004 STRUC_INIT: 


-LON 0 
00008 PREFIX: .BLKB 132 
00000000 OO008C PREFIX_DESC: 


-LONG 0 
00000000" 00090 «ADDRESS PREFIX : 


| 
“LONG 
ADDRESS P.AAN ; 
00094 OUTPUT BUFFER: 


~BL 132 
00000000 00118 OUTPUT_DéSC: : 
000° 0011¢ “ADDRESS OUTPUT_BUFFER : 
SSUES BET anxcer:: BESS OU | 
90000 99° 001 “ADDRESS P.AAA : 
0000003 00128 CBRACKET: 
“LONG 3 ; 
0 0! 1 ¢ “ADDRESS P.AAB : 
1 00130 COMMA: [LONG 1 : 
0° ? "ADDRESS P.AAC : 
Q 13¢ "ADDRESS P.AAD : 
0 1 


40 FACILITY: 
-LONG 9 : 


k 3 
$=Sep=1984 02:10:16 YAX=11 BLiss-32 v4.0-74 Page 9 “1 
oa Sep-1984 i40:1% — EMSGr IL SRESMDL GEN: B3e; ile 


-ADDRESS P.AAE ; 
SEMICOLON: , 


1 

1 
144 
148 
196 “ADDRESS P.AAF 
150 STRUCT: .LONG 8 
154 -ADDRESS P.AAG 
158 UL: -LONG 3 
1 ‘ ADDRESS P.AAH 
160 XL: -LONG 7 
164 ADDRESS P.AAI 


.EXTRN MDL_RAB, MDL_FAB 
*EXTRN SYNTAK geRROR, RMS_ERROR 
“EXTRN SYS 


Pete Se Se Se Se Se Se 


.PSECT S$CODE$,NOWRT,2 
03FC 00000 .ENTRY MDL_START_STRUC, Save R2,R3,R4,R5,R6,R7,R8,-; 0403 
59 0000v CF 9E 0000 MOVAB MDL_PUT RECORD R9 : 
58 0000' CF 9E its MOVAB PREFIX BESC, Rb ; 
SE FEG4 CE 4 0000¢ MOVAB ii, Sp) 5 : 
FF78 C8 61 00 00011 MOVL #1, STRU + 0460 
50 04 AC pO 00016 MOVL FACILITY Best. > 0461 
FF6C CD 60 7D OOO1A MOVG (RO), CONSTANT bese ; 
56 FF6C CD DO O001F MOVL CONS FANT T DESC, ~R6 + 0467 
0084 CE 02 00 00024 MOVL #2, TAG_BESC + 0470 
33 10 BC 02 €1 900 9 BBC #2. + AFACILITY FLAGS, 1$ + 0464 
58 56 DO 0002E MOVL 6, Ix + 0467 
04 «AB FF70 CD DO 00031 MOVL CON stent _DESC+4, PREFIX_DESC+4 : 0468 
0088 CE 6E 3E 00037 MOV TAG, TAG DE s¢ C44 : 0471 
FF6C = CD 02 ¢ 9005¢ SUBL2 #2, CONSTANT DESC + 0473 
50 FF6C «CD FF70 CD C1 00041 ADDL3 CONSTANT Orstea: CONSTANT_DESC, RO + 0475 
0088 ODE 60 B80 00049 MOVW (RO), a@TAG DESC? ; 
4A 10 BC 01 £0 OO4E BBS #1, aF Rie TTY “FLAGS, 3$ : 0477 
0084 CE D7 0005 DECL C : 0479 
0088 CE D6 00057 INCL AG DESC +4 + 0480 
FF6C «CD «(D6 00058 INCL ONSTANT_DESC > 0481 
3c 11 0005F BRB + 0464 
0088 CE 0000' CF 9 0061 1$: MOVAB P. AAJ, TAG_DESC+4 : 0489 
08 10 BC 01 £0 00068 BBS aFACILITY_FLAGS, 2$ > 0491 
0084 CE 07 0006D DECL TAG _DESE + 0493 
0088 CE 06 00071 INCL TAG DESC +4 + 0494 
3 p4 : 23 2$: CLRL_ = PREFIX_DESC + 0497 
04 =A FF7C }§©6©CB8 9E 0007 MOV PREFIX; PREFIX_DESC+4 : 0498 
50 6 04 AB ci 0 7D ADDL3 PREFIX DESC+4, PREFIX_DESC, RO : 0502 
60 FF70 DD 26 8 082 MOVC3 R6, @CONSTANT DESC+4, ~(RO) ; 
68 6 CO 000 ADDL2 6, PREFIX DE F 
50 68 04 A ci 08 ADDL3 PREFIX DESC+4, PREFIX_DESC, RO : 
60 0088 0D 0084 CE 0 MOVC3 TAG_DESC, a@TAG_DESC+4> (ROS : 
6 0084 ce C 9 ADDL2 TAG™ DESC PREFIX DESC : 
FF74 CB 2 6 § 9D 3$: SUBL3 PREFIX_DESC, #397 VALUE_OFFSET > 0506 
0000" CF 9F OOOA PUSHAB K : 0508 
69 1 FB A CALLS ae MDL PUT_RECORD : 
aie tb FF7C 5 4 at HOVA 4 OtreR BUFFER’ SC+4 : §2i9 
08 20 6E 60 2C 00086 Moves 70. (SP), #32, “He BUFFER : 0512 
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4 3 
16-Sep-1984 03:10:16 axed! Bliss-32 V4.0-742 Page 11 MESS 
14-Sep-1984 12:46:14  CMSGFIL.SRCIMDLGEN.B32:1 (3) 
FF74 CD FF74 CB DO OOZIA MOVL. VALUE_OFFSET, BUFFER DESC ; 0562. 
FF74 cD FF78 CD cI 0 1 ADDL3 BUFFER DESC +d BUFFER_DESC, RO : 056 
0000 D boc cB 8 9 mMovC3 UL, auc+4, (RO) : 
FF74 «CD c¢ ¢ 1 ADDL UL BUFFER DESC ; 
oo9¢ CE 4 8F A a MOVZBL #182, FAOOOT DESC + 0567 
OAO «CE 00A4 CE 9E OVAB FAOOUT_BUF, FAOOUT_DESC+4 : 0568 
08 AC pb 4 PUSHL FACILITY NUMBER + 0571 
OAO CE 9F 0024 PUSHAB FAOOUT_DES ; 
OAS CE 3 4c PUSHAB FAOQOUT~DESC : 
FF74 cb F 0025 PUSHAB BUFFERDESC ; 
000006006 00 4 FB 4 CALLS #4, SYSS$FAO : 
009¢ ; OF 0 B PUSHAB FAQOUT_DESC + 0573 
69 FB F CALLS #1, MDC_PUT_RECORD ; 
0 1 00 00 62 MOVL #1, RO + 0575 
04 0026 RET + 0577 
; Routine Size: 614 bytes, Routine Base: S$CODE$ + 0000 
Ther 


N 3 
16-Sep-1984 02:10:1 AX-11 Bliss-32 V4.0-74 p 
192808- 138s 985183] MSGEILCSREIMDL GEN B32 4 ~ 


; rf poze } GLOBAL ROUTINE mdl_define_constant (name_desc, value, msg_flag, tparse) = 

3; 3 bene 1 !-- 
: 34 581 1! 
3 rt Be ¢ ' This routine outputs constant Lines in the following format: 

3 29 bege ! } symbol_name, symbol_value 
3 326 0586 1! It can be called either to output message symbols or Literals. 

; 3 0587 1! n the latter case, it checks to be sure that the literal name 
; 354 0588 1! Ss consistent with the $STRUCT statement. If it is not, a warning 

; $22 0589 1! is issued and the Literal is omitted. 

; 356 0590 1! 

5 tor 0591 1 =! Inputs: 

; 358 B236 3 

; 359 0595 1! name_desc = Address of descriptor of symbol name. 

; 360 0594 1! 

3 30) 0595 1! value = Symbol value. 

; 6 0596 1! 

3; 0597 1! msg_flag = Set if a message symbol and not a Literal. 

; 364 0598 1! 

; 365 0599 1! tparse = Address of tparse block, when present. 

; 366 0600 1! 

; 367 0601 1 ! Outputs: 

; 368 0602 1! 

3 56 0603 1! None 

3 6370 0604 1! 

ee 4! 0605 1 !-- 

; Se 0606 1 

3. STs 0607 2 BEGIN 

; «374 0608 2 

3; 7s 0609 2 MAP 

; 376 0610 2 name_desc: REF VECTOR; 

o arr 0611 2 

; 378 pete 2 LOCAL 

; 379 0613 2 buffer: VECTOR Cline_size, BYTE), ! Line to be output 

; 380 0614 2 buffer_desc: VECTOR $i ! Buffer descriptor 

; 381 0615 § faoout_desc: VECTOR C2], ! Descriptor to accept output from FAO 

3 $86 0616 facout_buf: VECTOR Cline_size, BYTE], ! FAO output buffer 

it +34 2 symbol _desc: VECTOR (2); ! Symbol name descriptor 

; «385 0619 ‘ If ( NOT .struc_init ) ! Structure not initialized | 
; 386 0620 THEN BEGIN é ; 

3 HH 806! syntax_error (.tparse, emsg (nofacil)); ' Signal warning 
; 388 6 ¢ RETURN true; ! Exit 
; 390 besz END; 
; «(591 be 5 symbol _desc(0]) = name desc tO); ! Initialize symbol name descriptor | 
3 335 Be $ symbol"desc(1] = .name_desc(1); 

3; 394 0628 IF ( NOT .msg_flag ) ! Symbol is a Literal 
; 399 6¢9 3 THEN BEGIN | 
; 397 631 IF CHSNEQ (.pretix_desct01, oprefixdescht i. ' Be sure that literal prefix is 
; ee O36 -prefix_descl0OJ, .symbol_descl1] ) ! consistent with $STRUCT statement 

; 399 0633 4 THEN BEGIN 

; 400 0634 4 syntax_error (.tparse, emsg (Litconf)); ! Signal warning 


4 
1B-sep-1984 02:10:1 AX-11 Bliss-32 V4.0-742 Page 13. 
en een 1 Fhe PSi1818 = FARE H Ob tag age vk Oars Fl 


; 401 0635 4 RETURN false; ! Do not output | ; 
3 if ~ | 
: 404 638 symbol desc i) = “Syupot .geschy} - .prefix_desc ii ! Remove prefix | ; 
; 405 639 symboi_descl1] = .symbol_descl1J] + .prefix_desc(0J; ; 
; rt 640 : 
; 40 641 END; : 
; 408 Rone 3 
; 409 064 put ter.desci 0] = record_offset; ! Initialize buffer descriptor : 
; ret bee buffer_desc(1J = buffer; ; 
: 4i§ pete CHSFILL (* *, .value_offset, buffer); ! Clear beginning of Line : 
; 414 P 0648 CONCAT (buffer_desc, ! Put together constant statement . 
3: 415 P 0649 symbol _desc, ; symbot name comes first ; 
3 218 goed comma) ; ! Then a comma : 
; £13 0636 buffer_desc(0] = .value_offset; ! Move buffer ptr along ; 
5 420 0654 IF ..value LEQU dectohex_switch : 
; : 1 a Bo32 THEN (CONCAT Chur yer._dese, ! Use decimal notation : 
* u . 
3; 6 ‘ P bees ELSE (CONCAT (buffer_desc, ! Use hexadecimal notation : 
; 424 0658 xl); : 
: 425 0659 3 
; $26 0660 roma ge meet Oy = Line_size; ! Set maximum buffer size . 
3 ret sed faoout_desc{1] = faoout_buf; ! Set FAO output buffer : 
: 629 P nee $FAO (buffer_desc, faoout_desc(0], ! Convert numeric value to string descriptor ; 
3 oe se¢: 2 faoout_desc, ..value); : 
: $34 pees mdl_put_record (faoout_desc); ! Output constant statement : 
: 434 0668 2 RETURN true; ; 
; 435 0669 : 
: 436 0670 1 END; ; 
.EXTRN MSG$_NOFACIL, MSGS_LITCONF 3 

007C 00000 -ENTRY MDL_DEFINE_CONSTANT, Save R2,R3,R4,R5,R6 ; 0578 : 

56 0000" CF 9€ BO 006 MOVAB 4 i4h DES 6 : 3 

5E FeEO cE 9 999 MOVAB -288(SP), SP ; ; 

11 FF C6 E8 0000C BLBS  STRUC_INIT, 18 : 0619 | ; 

000000006 8F 0D 00011 PUSHL  #MSGS"NOFACIL ; 0621, : 

10 AC 0D 00017 PUSHL TPARS : § 

0000G CF 02 FB QOOIA CALLS #2, SYNTAX_ERROR 3 : 

OOCE 31 OOO1F BRW : 0622 | : 

50 046 =A b0 0022 18: MOVL § NAME_DESC, RO : 06 | ; 

Gf 60 7D 99 6 MOVa  —- (RO) SYMBOL DESC ; ; 

2 oc Ac 029 BLBS_ MSG FLAG, 3$ : 0628 | ; 

04 BE 04 866 $6 00 3 sore PREFIX_DESC, @PREFIX_DESC+4, @SYMBOL _DESC+4 ; 06 1 : 

000000006 BF DD 09 PUSHL  #MSG$_LITCONF > 0634 | ; 

1 AC 0D B PUSHL =: 3 | é 

0000G CF 02 FB OO0SE CALLS #2, SYNTAX_ERROR ; é 


4 
1b-s¢ -1984 716 AX=-11 Bliss-32 V4.0-742 Page 14 
1 Sep- 1984 95:18 6:14 MSGFIL.SRCIMDLGEN. B32;1 - a 
OOAE 31 00043 BRW 7$ : 0635 
6E 66 C 0 46 2$ SUBL2 PREFIX_DESC, SYMBOL_DESC : 0638 
g AE 66 ¢ 4 ADDLe PREFIX-DESC, SYMBOL-DESC+4 > 0639. 
FF74 CD 0040 3$ MOVL #8, BUFFER DESC + 0643 
FF78 CD FF7C 86CD O9€ 5 MOVAB BUFFER BUFFER. DESC +4 + 0644 
20 bE ae 00 ¢ 3 MOVCS #0, (SP), #32,~VALUE_OFFSET, BUFFER + 0646 
50 FF74 CD FF78 CD 1 0 $8 ADDL3 BUFFER_DESC+4 BUFFER DESC : 0650. 
60 BE GE 28 00068 MOVC3 SYMBOL-DESC, @SYMBOL Desc+é, RRO) : | 
FF74 =6CD 6— CO 000 ADDL SYMBOL_DESC, SUFFER ‘BE ESC 3 
50 FF74 CD FF78 CD cI 007 ADDL3 BUFFERTDESC+4, BUFFER_DESC, RO : | 
60 O0OAB 06 OA, C6 8 9070 MOVC3 COMMA, acOMMA+4 (RO)~ : 
FF74 (CD OA6 66 CE 8 ADDL2 COMMA, BUFFER_DESC ; 
FF74 CD FF74 (6 DO 008¢ MOVL. VALUE OFFSET “BUF FER_DESC + 0652 | 
50 FF74 CD FF78 CD C1 0009 ADDL3 BUFF FER DESC +L, B BUFFER_DESC, RO : 0656 
QOOOOFFFF  &F 08 BC D1 00098 CMPL @VALUE, #65535 + 0654. 
11 1A QOOA BGTRU 4$ : 
60 0006 «6 OOcc C6 28 000A5 MOVC3 UL, @UL+4, (RO) > 0656. 
FF74 (CD O00CC C6 CO OO0AD ADAL? 3 BUFFER. DESC ; 
OF 11 000B4 BRB + 0654) 
60 00D8 06 0004 C6 28 00086 4$ MOVES | axl+4, (RO) : 0658. 
FF74 CD 0004 C6 CO 000BE ADDL2 XC QUFFER DESC ; 
008c CE 84 8F 9A 000C5 S$: MOVZBL #132, FAd9 OOT DESC ; 0660 | 
FF70 «CD 08 AE 9E 000CB MOVAB  FAQOUT_BUF, FAOOUT _DESC+4 > 0661. 
08 BC DD 000D1 PUSHL av ALUE™ > 0664 
0090 CE 9F 000D4 PUSHAB FAOQOUT_DESC : 
FF6C CD 9F 00008 PUSHAB FAOOUTDESC : | 
FF74 CD 9F 000DC PUSHAB BUFFER DESC : 
000000006 00 04 FB O000EO CALLS #4 SYSSFA ; | 
008C CE 9F OO0E7 PUSHAB FAbouT ESC 0666 | 
0000v CF 01 FB OOOEB CALLS nOC. PUT_RECORD F | 
50 01 DO OOOFO 6$ MOVL Hk ; 0668 | 
04 O00F3 RET ; 
50 D4 000F4 7$ CLRL RO : 0670 | 
04 000F6 hET : 


; Routine Size: 247 bytes, Routine Base: $CODES + 0266 


; 437 0671 1 


dD 4 
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>; 439 ore 1 GLOBAL ROUTINE mdl_end_struc = 
; 440 675 1 
: 441 674 1 !<- 
; 464 675 1! 
: 44 6 1! This routine outputs an end statement and cleans up 
3 4466 err 6 3 the previous series of constant commands. 
> 4465 of8 73 
3 «44 679 1! > 
; 46 0680 1! E 
; 448 0681 1! 
: 6469 06 § 1 ! Inputs: 
; 3 Be 1} 
; 451 684 1! None 
; +26 0685 1! 
s 65 Bons 1 ! Outputs: | 
> 454 0687 1! 
: 455 0688 1! None 
; $56 0689 1! 
: 457 0690 1 !-- 
; 458 0691 1 
; 459 0692 2 BEGIN 
: 460 069 
; 461 0694 LOCAL 
3 rr 0695 buffer: VECTOR Cline_size, BYTE), ! Line to be output 
: rr Bee buffer_desc: VECTOR (2); ! Buffer descriptor 
; 465 0698 IF ( NOT .struc_init) ' Structure not initialized 
3 0699 THEN RETURN true; ! Exit 
: 467 0700 
; 468 0701 struc_init = false; ! Clear structure active flag | 
; 469 070 buffer_desc(0J = record offset; ! Initialize buffer descriptor 
: 470 070 buffer-desc(1] = buffer 
3 4 Tae CHSFILC (' *, record “offset. buffer); ! Clear beginning of Line | 
: 47 P 0706 CONCAT (buffer_desc, ! Put together ‘>’ statement | 
: 476 0707 bracket); 
: 75 0708 mdl_put_record (buffer_desc); ! Qutput that Line | 
3 rth Bote buffer_desc(0] = record_offset; ! Reset buffer size 
3 ris P Oris CONCAT (byt ter desc, ! Put together 'E' statement 
3 rr} Bete mdl_put_ record (buf fer_desc); ! Output that Line 
; £83 0716 mdl_put_record ( UPLIT (DESC (' ") )); ! Output blank Line 
: 484 0717 
; 6485 0718 RETURN true; 
: 486 0719 
: 487 0720 1 


END; 


-PSECT SPLITS,NOWRT ,NOEXE ,2 
20 00040 P.AAP: eh 3 \ : 


00 K 
00000001 00044 P.AAO: .LONG 1 : 


; Routine Size: 96 bytes, Routine Base: $CODE$ + 035D 


4 
1§- Sep-1984 02:10:16 AX-11 Bliss-32 V4.0-742 Page 16 
14- ~g00n 38 95:10:18 MSGFIL.SRCIMDLGEN. B32;1 o° «35 
00000000' 00048 .ADDRESS P.AAP : 
.PSECT $CODE$,NOWRT,2 
007¢ 90000 -ENTRY MDL_END_STRUC, Save R2,R3,R4,R5,R6 3 0672 | 
56 0000v CF 9£ 0002 MOVAB MDL~PUT-RECORD, R6 ; 
SE FF74 «CE 43 000 MOVAB =140(S : 
48 0000' CF €9 0000¢ BLBC STRUC_INIT, 1$ + 0698 
0000" CF 04 00011 CLRL = STRUC NIT : 0701 
6E 08 DO 90013 MOVL #8, BOFF : 070 
04 AE 08 AE 9E 00018 V SUFFER, SBUFFER.0 DESC +4 + 070 
08 20 6E a 00 2¢ 90010 MOVC Fri , (SP) . BUFFER + 0704 
50 6E 04 AE C1 00024 ADbL3 BUFFER DESC #4 BUFFER DESC, RO + 0707 
60 0000" oF 0000' CF 28 00029 MOVC3 BRACKET, aBRACKE TRO) : 
bE 0000" CF CO 00031 ADDL2 BRACKET, BUFFERS bese : 
SE DD 00036 PUSHL SP + 0708 
66 01 FB 00038 CALLS , MDL_PUT_RECORD ; 
6E 08 00 00038 MOVL Ag BUFFER : 0710 
50 6E 04 AE C1 00056 ADDL3 BUFFER DEST +4, BUFFER_DESC, RO + 0713 
60 0000" oF 0000" CF 28 0004 MOVC +f ; 
6E 0000' CF CO 00048 ADDL2 E. StrrER. ESC : 
5E DD 00050 PUSHL SP : 0714 
66 01 FB 00052 CALLS H. MDL_PUT_RECORD ; 
0000" CF 9F 0005 PUSHAB P.AA : 0716 
66 01 FB 00059 CALLS #1, MDL_PUT_RECORD ; 
50 01 pO 0005C 1$: MOVL #1. RO : 0718 
04 0005F RET + 0720 
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buf fer_desc(0] ® 0 Initialize buffer descriptor 


buffer-descl1J = buffer; 


IF ( NOT .new_line_flag ) 
THEN BEGIN 

buffer 
CHS$F ILE 
END; 


CONCAT (buffer desc, 
semicolon, 
-comment_desc); 


Append to previous Line 


dope [03 = comment_offset; 


: Skip a few spaces 
*, comment_offset, buffer); 


$88 q GLOBAL ROUTINE mdl_comment (comment_desc, new_line_flag) = 
491 7 leo 
49 7 : 
49 7 : This routine outputs a comment either appended directly 
494 7 : to the end of the previous record, i.e. on the same Line 
495 7 : as the previous record, or on a new Line, depending on 
496 g ; the value of the new_line_flag. 
498 7 ! Inputs: 
499 7 ' 
200 f comment_desc = Descriptor of comment. 
4 7 : new_line_flag = Set if comment should be placed on a 
0 7 ! new Line. 
04 7 : 
05 g } Outputs: 
7 ! None 
7 ' 
7 lee 
7 
. BEGIN 
7 MAP 
4 comment_desc : REF VECTOR; 
7 LOCAL 
7 buffer: VECTOR Cline_size, BYTE), ! Line to be output 
f buf fer_desc: VECTOR (2); ! Buffer descriptor 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 
7 


PRAEXPED AGG & BE EEE EE EW 


Put together comment record 


UMEUN | O CONOUESWN SO OCONOUSWN—O0OOn 


ndl_put_record (buf fer_de Output record 


SC, 
F NOT .new_line_flag THEN true ELSE false); 
RETURN true; 
END; 
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007C¢ 00000 -ENTRY MODL_COMMENT, Save R2,R3,R4,R5,R6 


; 0721 
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; Routine Size: 85 bytes, Routine Base: 


H 4 
16-Sep-1984 02:10:1 AX-11 Bliss-32 V4.0-74 P 1 
o- 30071387 95:10:18 MSGFIL-SRCIMDLGEN.B32; mth (7 


RETURN true; 


wre ! GLOBAL ROUTINE mdl_put_record (record_desc, append_to_buffer_flag) = | : 

774 1 S<- : 

He Thi ti t d into the mdl fil | 

: Ss routine s a record into the e. , 

546 O77 1 i #5 : | 
4 0778 1 ! Inputs: | : 
548 0779 1! : 
208 th : record desc = Descriptor of record to be buffered. ; 
551 0782 1: append_to_buffer_flag = Set if buffer should be expanded. ; 
226 Ores ! } . Eoetaule is clear.J | : 
554 0785 1 ! Outputs: ; 
555 0786 1! ; 
556 0787 1! None : 
557 0788 1! 3 
558 0789 1 !-- : 
559 0790 1 : 
560 0791 2 BEGIN 3 
561 145 : 
206 079 MAP : 
56 0794 record_desc: REF VECTOR; 3 
564 0795 : 
565 0796 BUILTIN 3 
566 0797 NULLPARAMETER; ! True if not specified : 
567 0798 A 
568 0799 LOCAL ‘ 
569 0800 status; ! Status code ; 
570 0801 : 
571 Bang IF .mdl_fab Cfab$w_ifi] EQL 0 ! If file not opened : 
Ae: ett : THEN RETURN true; ! Exit : 
gfe 984 IF NULLPARAMETER(2) ! New_lLine_flag not input or null : 
576 0807 THEN BEGIN ' Output and then reset buffer : 
577 0808 mdl_rab Crab$w_rsz] = .output_desc(0); ! Initialize output record : 
278 ths mdl_rab Crab$l_rbf] = .output_desc(1]; : 
260 ost} status = S$PUT (RAB = mdl_rab); ! Output Line ; 
286 0813 4 IF ( NOT .status ) ' If error : 
2 baie THEN rms_error (emsg (writeerr), mdl_fab, mdl_rab); ! Then report it ‘ 
oR oie output desc(0) = .record_desc(0); ' Reset buffer size | : 
256 Baie CHSMOVE (.record_desc(0], .record_desc(1], .output_desc(1)); ! Reset buffer | : 
ae 0819 RETURN .status; : 
44 0820 END : 
90 8B 1 . Py 
591 0 § ELSE BEGIN ! Simply modify old buffer | 3 
236 08 ? CONCAT (output_desc, .record_desc); ! Append record to buffer : 
se BRS ey 
336 085? ; 


END; 


POPOPOPIPUIRIPIPININININIMPINIPINIPIPININININININININININININIPINININPININPINININYND 


4 
b-Sen-198¢ 09:10:16 YaNe1? BLing=32 4.0274 


~-EXTRN SYS$PUT 


O1FC .ENTRY MDL Pur ARE ORD, Save R2,R3,R4,R5,R6,R7,RB 
58 G CF 9 MOVAB = MDL 
CF 9 MOVAB ouTPUT Ta0§se- R7 
G ct B 0 TSTW 
5 1 1 BEQL i 
52 04 AC p6 o1 MOVL  RECORD_DESC, R2 
0 6¢ 1 00 1 CMPB Ss), =B2 
1F 901 BLSSU_1$ 
08 AC D5 0001B TSTL (AP) 
3 if Ooi BNEQ $ 
> as 67 80 00020 1$ MOVW  OUTPUT_DESC, MDL_RAB+34 
28 AB 04 A? DO 90 4 MOVL OUTPUT DESC+4, MDL_RAB+40 
58 DD 90029 PUSHL R 
000000006 90 or FB 00 CALLS #1, SYS$PUT 
0D 00 MOVL 0; STATUS 
56 EB 00 BLBS STATUS, 2$ 
58 DD 00038 PUSHL RB 
00006 CF 9F 005A PUSHAB MDL_FAB 
009710D2 8F DD 0003E PUSHL #990 
00006 CF 03 FB 00044 CALLS #3 RM 
67 04 BC DO 00049 28 MOVL.  @RECORD-DESC, OUTPUT_DESC 
04 87 04 B2 04 BC 28 00040 MOVC3 SRECORD= “DESC. @4(R2)> @OUTPUT_DESC+4 
50 56 DO 00054 MOVL STATUS, ~R 
04 00057 RET 
50 67 04 A? Ci 00058 3$ ADDL3 OUTPUT DESC+4, OUTPUT_DESC, RO 
60 04 8 04 BC 28 9005p MOVC3 @RECORB_DESC, a@4(R2),~(RO) 
6 04 BC CO 0006 ADDL2  @RECORD-DESC. OUTPUT DESC 
50 01 DO 00067 4$ MOVL , RO 
04 0006A RET 


; Routine Size: 107 bytes, Routine Base: SCODE$S + 0412 


PSECT SUMMARY 
Name Bytes Attributes 
SOWNS 360 NOVEC, WRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
SPLITS 76 NOVEC.NOWRT, RD .NOEXE.NOSHR. LCL, REL. CON.NOPIC.ALIGN(O) 
SCODES 1149 NOVEC.NOWRT, RD; EXE.NOSHR, LCL. R CON,NOPIC,ALIGN(2) 
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1b-sep-1964 03:10:16 yayett aL 


Library Statistics 


; quesenee Symbols =------- Pages Processing 

: File Total Loaded Percent Mapped Time 

i _$255$DUA28:(SYSLIBISTARLET.L32;1 9776 22 0 581 00:01.1 

; COMMAND QUALIFIERS 

; BLISS/CHECK=(FIELD, INITIAL,OPTIMIZE)/LIS=LIS$:MDLGEN/OBJ=0BJ$:MDLGEN MSRC$:MDLGEN/UPDATE=(ENHS$ :MDLGEN) 


; Size: 1149 coge + 436 data bytes 


3 Flasees tees 01:06.5 
3; Lines/CPU Min: 226 

3 pevenees Cees 29777 

; — Used: 181 pages 
5 _ ation Complete 


ESnoroknsosec] 
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